home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / rwrdfinl.dxr / 00144.ls < prev    next >
Encoding:
Text File  |  1996-07-26  |  1.1 KB  |  38 lines
  1. on mouseDown
  2.   global lastName
  3.   set current to the name of cast the castNum of sprite the clickOn
  4.   puppetSprite(the clickOn, 1)
  5.   puppetSprite(12, 1)
  6.   set the castNum of sprite the clickOn to the number of cast "animalsMenu"
  7.   updateStage()
  8.   set the constraint of sprite 12 to the clickOn
  9.   set the locH of sprite 12 to the left of sprite the clickOn
  10.   repeat while the mouseDown
  11.     set the locV of sprite 12 to the mouseV
  12.     updateStage()
  13.   end repeat
  14.   set the constraint of sprite 12 to 0
  15.   set the locV of sprite 12 to 1000
  16.   updateStage()
  17.   set mV to the mouseV - 52
  18.   set V to 0
  19.   set selection to 0
  20.   repeat while V < mV
  21.     set V to V + 15
  22.     set selection to selection + 1
  23.   end repeat
  24.   if selection > 0 then
  25.     set current to line selection of field "animalsFld"
  26.   end if
  27.   put current & "Wrd"
  28.   set snd to current & "Wrd"
  29.   puppetSound(snd)
  30.   updateStage()
  31.   wait(1)
  32.   puppetSound(0)
  33.   set the castNum of sprite the clickOn to the number of cast current
  34.   updateStage()
  35.   set fld to lastName & "Fld"
  36.   put the castNum of sprite the clickOn into line the clickOn of field fld
  37. end
  38.